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INTRODUCTION 



This course was first prepared for a group of seniors enrolled in Secretarial 
Officer Practice. Before the course. began, six of the quicker students had mas- 
tered the unit record equipment through the accounting machin<=*;. These girls 
became our experimental class. The course was such a success that it was re- 
peated in the spring for 8 more commercial students. These students were, in 
general, less able, but they completed the same material at a slightly slower 
pace . 

The course lasts eight to ten weeks. 

The objective of the course is to teach the students the fundamentals of the 
Basic language and computer programming using a series of business-oriented 
programs. 

This entire unit, including on-line computer use, was completed within the 
regularly scheduled class period. The length of this unit could be shortened con- 
siderably by requiring outside assignments. This was not done for several reasons, 
not the least of which was the scarcity of computer time in the afternoon. 
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I. PRINT-OUT AND FORMAT CONTROL 
(3 days) 



Purpose: To introduce the six fundamental BASIC commands - READ, DATA, 

PRINT, END, IF-THEN, and GO TO and to illustrate the various 
print-out options including the TAB function. 

The entire presentation of print-out was done using prepared acetates similar to the 
material in Figure 1. 



1st day: Print-out through the use of the comma and semicolon. 

2nd day: All students spent the cime at the teletype writing various 
print -out programs 

3rd day: Lecture on how to eliminate the OUT OF DATA statement, 
two-column print-out, use of the TAB function, and how 
to skip spaces in a program. 



6* 
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Figure 1 



100 READ X 
200 PRINT X 

900 DATA 12, 15, 17, 24, 29, 33, 14, 89, 71, 56, 61,^10,19,92, 55 
999END 



LIST 

DATA 15:27 09/08/67 

100 READ X 
200 PRINT X 

900 DATA 12,15,17,24,29,33,14,89,71,56,61,40,19,92,55 
999 END 



READY 
RUN 

DATA 15:? 09/08/67 



12 



TIME : 



.04 SECS. 



300 GO TO 100. 
LIST 

DATA 15:28 09/08/6? 

100 READ X 
200 PRINT X 
300 GO TO 100 

900 DATA 12, 15, 17, 24, 29, 33, 1^^,89, 71, 56, 61, 40, 19, 92, 55 
999 END 

READY 
RUN 

DATA 15:28 09/08/67 



12 
15 
17 
24 

29 
33 
14 

89 
71 
56 
61 
40 

19 
92 
55 

OUT OF DATA IN 100 



TIME: .05 SECS, 



8 



ERIC 



200 PRINT X, 



ERIC 



RUN 

DATA 15:30 09/08/6? 



12 15 17 24 29 

33 l** 89 71 56 

61 iJO 19 92 55 

OUT OP DATA IN 100 



TIME: .07 SECS. 



200 PRINT X; 
RUN 

DATA 13:30 09/08/67 



12 15 J? 24 29 33 14 89 71 56 bl 40 19 92 55 
OUT OP DATA IN 100 



TIME: .07 SECS. 



950 DATA 0 

i50 IF X = 0 THEN 999 



LIST 

DATA 15:32 09/08/6? 

10 OREAD X 

150 IP X = 0 THEN 999 
200 PRINT X; 
300 GO TO 100 

900 DATA 12,15,17,24,29,33,1^,89,71,56,61,^10,19,92,55 

950 DATA 0 

999END 



READY 
RUN 

DATA 15:32 09/08/67 



12 15 17 24 29 33 14 89 71 56 6l 40 19 92 55 
TIME: .05 SECS . 
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100 READ X,Y 



LIST 



DATA 



15:35 



09/08/67 



100 READ X,Y 

150 IF X = 0 THEN 999 

200 PRINT X; 

300 GO TO 100 

900 DATA 12, 15, 17, 2i! ,29,33,14,89,71,56,61,40,19,92,55 
950 DATA 0 
999 END 



READY 



SAVE 
READY 



RUN 



DATA 



15:36 



09/08/67 



12 17 29 14 71 61 
OUT OP DATA IN 100 



19 55 



TIME: 



.05 SECS. 



150 

250 IP Y = 0 THEN 999 



LIST 

DATA 35:40 09/08/6? 

100 READ X,Y 

200 PRINT X; 

250 IP Y a 0 THEN 999 

300 GO TO 100 

900 DATA 12, 15, 17, 2i^, 29, 33, 14, 89, 71, 56, 61, ilo, 19, 92, 55 
950 DATA 0 

999 END 



READY 
RUN 

DATA 15:41 09/08/67 



12 17 29 14 71 61 19 55 
TIME: .05 SECS. 



SAVE 

PILE ALREADY SAVED ! I 
REPLACE? ANS: YES OR NO — YES 
READY 



200 PRINT X,Y 



RUN 
DATA 



15:^*3 



09/08/67 



12 
17 
29 
14 

71 
61 

19 
55 



15 
2H 

33 
89 
56 
HO 
92 
0 



TIME: 



,08 SECS 



200 PRINT X;Y 



RUN 
DATA 



15:^3 



09/08/67 



12 15 

17 2H 

29 33 

Ih 89 

71 56 

61 ^0 

19 92 

55 0 



TIME: 



.07 SECS, 



i3 



10 



2Q0 PRINT X; TAB (30); Y 
RUN 

DATA 15:^6 09/08/67 



12 15 

17 2H 

29 33 

li* 89 

71 56 

61 HO 

19 92 

55 0 



TIME: .09 SECS. 



210 PRINT 



LIST 

DATA 15:^9 09/08/67 

100 READ X,Y 

200 PRINT X; TAB (30); Y 
210 PRINT 

250 IP Y = 0 THEN 999 
300 GO TO 100 

900 DATA 12, 15, 17, 2i|, 29, 33, lit, 89, 71, 56, 61, ilO, 19, 92, 55 
950 DATA 0 
999 END 

READY 



ERIC 
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II. COUNT - AVERAGE ROUTINE 
(3 days) 

Purpose: To write a simple, yet useful, program which would introduce 

the LET statement and illustrate how to print labels using 
quotation marks. 

1st day: Construct the flow chart of the counting routine and then 

the summing routine beside each other as shown in Figure 2. 
The students can easily combine the two into a single flow 
chart for averaging a set of data . The students wrote the 
BASIC program from the flow chart in class. 

2nd day: Each student typed in his average program and ran it with 
3 sets of data. It is essential here that each student use 
block of data of varying lengths. There are hazards here, 
particularly if the next set of numbers fills less lines of 
data than the previous block did. 

3rd day: Continuation of the second day. 
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III. WITHHOLDING TAX TABLE 



(about 6 days) 



Purpose: 



To study simple and nested loops and the use of FOR - NEXT, 
INPUT, the INT function and the DEF instruction. 



Acetates were prepared showing income tax withholding by the percentage 
method, the general directions and a sample page from the table for a weekly pay 
period. These acetates are not made from the latest Employers Tax Guide. An 
older version is more suitable for teaching looping. The attached sequence of 
programs (Figure 3) shows the progress made by the class, first printing out the 
amount to be withheld for 0 through 6 exemptions for a given wage of $40, then 
trying to duplicate the tax table entries and, finally, a portion of the actual table 
itself. The students developed the initial flow chart, wrote, and ran the program 
immediately. The results were viewed immediately using the overhead projector. 
They discussed the things which needed to be changed, returned to the teletype, 
and tried again. The entire week was spent in this manner. Note that the 
problems encountered led naturally to the following development: 



An interesting sidelight to this ^yhole project was the surprise of the students 
when they discovered that it was practically impossible to duplicate the table 
printed by the government . 



4. 



5. 
6. 



1. 
2. 
3. 



Need for a variable TAB function to space the columns • 
Introduction of the FOR - NEXT commands 
Elimination of the negative values of withholding tax 
because $13 times the number of exemptions exceeded 
the gross pay. 

Introduction of the INPUT command to facilitate varying 
the gross pay during the RUN of the program. 
Necessity to round off to the nearest hundredth. 
Double loop to print out a block of the actual table. 




Figure 3 



UST 

WITHOLD 15:38 03/01/68 

100 READ G 
200 DATA 40 
300 LET N=0 

400 LET T=(G-13*N)*. 14 

450 PRINT G, T;TAB (24); 

500 LET N = N+1 

600 IF N> 6 THEN 800 

700 GO TO 400 

800 END 



READY 



RUN 

WITHOLD 15:39 03/01/68 

40 5.6 40 3.78 40 1.96 40 0.14 40 

-1.68 40 -3.5 40 -5.32 

TIME: .05 SECS. 
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ERIC 



40 5.6 3.78 1.96 0.14 -1.68 -3.5 -5.32 

TIME: .07 SECS. 



450 PRINT T;TAB(22+N»7) ; 
RUN 

WITHOLD 15:41 0 3/01/68 

40 5.6 3.78 1.96 0.14 -1.68 -3.5 -5.32 

TIME: .07 SECS. 
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LIST 



WITHOLD 



17:08 



01/05/68 



100 READ G 

200 DATA kO 

250 PRINT G, 

300 FOR N = 0 TO 6 

1»00 LET T = (G-13*N)*.lil 

i»50 PRINT T;TAB(22+N*7) ; 

500 NEXT N 

800 END 



READY 



WITHOLD 



17:09 



01/05/68 



5.6 



3.78 



1.96 



O.lh -1.68 -3.5 -5.32 



TIME: 



.on SECS. 



'^0 



ERIC 



LIST 



WITHOLD 



17:37 



01/05/68 



100 READ G 

200 DATA HO 

250 PRINT G, 

300 FOR N = 0 to 6 

i»00 LET T = (G-13*N)*.li| 

i»25 IP T^O then ^50 

i»30 PRINT 0;TAB(22+N*7) ; 

i»i»0 GO TO 500 

il50 PRINT T;TAB(22+N*7) ; 

500 NEXT N 

800 END 



REAPX 



RUN 



WITHOLD 



17:37 



01/05/68 



5.6 



3.78 



1.96 



TIME: 



.Oi» SECS. 



LIST 



WITHOLD ■ 17:35 01/05/68 

90 PRINT "WHAT IS THE GROSS PAY" 

100 INPUT G 

110 PRINT 

250 PRINT G, 

300 FOR N = 0 TO 6 

400 LET T = (G-13*N)».14 

425 IP T > 0 THEN 450 

430 PRINT 0;TAB(22+N*7) ; 

440 GO TO 500 

450 PRINT T;TAB(22+N*7) ; 

500 NEXT N 

800 END 



READY 
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RUN 

WITHOLD 17:33 01/05/68 



WHAT IS THE GROSS PAY? 
i»0 5.6 3.78 1.96 O.l^i 0 

TIME: .09 SECS. 

110 PRINT 
RUN 

WITHOLD 17:3^ 01/05/68 



WHAT IS THE GROSS PAY? i|0.5 

i»0.5 5.67 3.85 2.03 0.21 0 0 0 

TIME: .08 SECS. 

RUN 

WITHOLD 17:3^ 01/05/68 

WHAT IS THE GROSS PAY? i|0.7 

i»0.7 5.698 3.878 2.058 0.238 0 0 0 

TIME: .05 SECS. 
RUN 

WITHOLD 17:35 01/05/68 

WHAT IS THE GROSS PAY? HO.8 

HO. 8 5.712 3.892 2.072 0.252 0 0 0 

TIME: .05 SECS. 
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LIST 

WITHOLD 17:30 01/05/68 

90 FOR G = 118.8 TO 60.8 

2 50 PRINT' G, 

300 FOR N = 0 TO 6 

i»00 LET T = (G-13*N)*.lll 

H25 IF T>0 THEN 1150 

1130 PRINT 0;TAB(22+N*7) J 

llllO GO TO 500 

1150 PRINT T;TAB(22+N*7) ; 

500 NEXT N 

550 PRINT 

600 NEXT G 

800 END 



READY 
RUN 

WITHOLD 17:31 01/05/68 



48.8 6.832 5.012 

49.8 6.972 5.152 

50.8 7.112 5.292 

51.8 7.252 5.432 

52.8 7.392 5.572 

53.8 7.532 5.712 

54.8 7.672 5.852 

55.8 7.812 5.992 

56.8 7.952 6.132 

57.8 8.092 6.272 

58.8 8.232 6.412 

59.8 8.372 6.552 

60.8 8.512 6.692 



3.192 


1. 372 


0 




0 


0 


3.332 


1.512 


0 




0 


0 


3.472 


1.652 


0 




0 


0 


3.612 


1.792 


0 




0 


0 


3.752 


1.932 


0. 


112 


0 


0 


3.892 


2 .072 


0. 


252 


0 


0 


4.032 


2.212 


0. 


392 


0 


0 


4.172 


2. 352 


0. 


532 


0 


0 


4. 312 


2. 492 


0. 


672 


0 


0 


4 . 452 


2.632 


0. 


812 


0 


0 


4.592 


2.772 


0. 


952 


0 


0 


4.732 


2. 912 


1. 


092 


0 


0 


4.872 


3.052 


1. 


232 


0 


0 



TIME: .13 SECS. 
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LIST 



WITHOLD 17:^5 01/05/68 

80 DEP PNR(X) = INT(X»10+.5)/10 

90 FOR G = ^O.Q TO 50.8 

250 PRINT G, 

300 FOR N = 0 TO 6 

HOO LET T = (G-13*N)».lil 

i*25 IF T> 0 THEN i*50 

1|30 PRINT 0;TAB(22+N»7) ; 

HHO GO TO 500 

i|50 PRINT FNR(T) ;TAB(22+N*7) ; 
500 NEXT N 
550 PRINT 
600 NEXT G 
800 END 



READY 



WITHOLD 17:^2 01/05/68 



il8.8 


6.8 


5 


3.. 2 


1.1 


0 


0 


0 




7 


5.2 


3.3 


1.5 


0 


0 


0 


50.8 


7.1 


5.3 


3.5 


1.7 


0 


0 


0 


51.8 


7.3 


5.1 


3.6 


1.8 


0 


0 


0 


52.8 


7.1 


5.6 


3.8 


1.9 


0.1 


0 


0 


53.8 


7.5 


5.7 


3.9 


? = 1 


0.3 


0 


0 


5^.8 


7.7 


5.9 


1 


2.2 


0.1 


0 


0 


55.8 


7.8 


6 


1.2 


2.1 


0.5 


0 


0 


56.8 


8 


6.1 


1.3 


2.5 


0.7 


0 


0 


57.8 


8.1 


6.3 


1.5 


2.6 


0.8 


0 


0 


58.8 


8.2 


6.1 


1.6 


2.8 


1 


0 


0 


59.8 


... 8.1. 


6.6 


1.7 - 


2.9 


1.1 


0 


0 


60.8 


8.5 


6.7 


1.9 


3.1 


1.2 


0 


0 



TIME: .17 SECS. 



90 FOR G = 10.8 TO 50.8 



RUN 

WITHOLD 17:11 01/05/68 



10.8 


5.7 


3.9 


2.1 


0.3 


0 


0 


0 


11.8 


5.9 


1 


2.2 


0.1 


0 


0 


0 


12.8 


6 


1.2 


2-.1 


0.5 


0 


0 


0 


13.8 


6.1 


1.3 


2.5 


0.7 


0 


0 


0 


11.8 


6.3 


1.5 


2.6 


0.8 


0 


0 


0 


15.8 


6.1 


1.6 


2.8 


1 


0 


0 


0 


16.8 


6.6 


1.7 


2.9 


1.1 


0 


0 


0 


17.8 


6.7 


1.9 


3.1 


1.2 


0 


0 


0 


18.8 


6.8 


5 


3.2 


1.1 


0 


0 


0 


19.8 


7 


5.2 


3.3 


1.5 


0 


0 


0 


50.8 


7.1 


5.3 


3.5 


1.7 


0 


0 


0 



TIME: .15 SECS. 
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IV. PAYROLL 
(2 to 3 weeks) 



Pxirpose: To print out the weekly payroll register of a small local 

company employing 10 people. 



1. Preliminaries 

The students were given the master list of employees. Figure 4. This 
contains name, payroll number, marital status, number of claimed exemptions, 
and hourly rate (or salary). Subsequent discussion of how the various items of 
data should be designated led to the introduction of subscripted variables, use 
of the $ for alphanumeric data, such as name and payroll number, and study of 
the MAT INPUT command which would allow changing the hours worked each 
week as the program runs. 

2 . Flow Chart 

The flow chart took one week and was done in two parts because of the 
complexity of the withholding sequence. Figure 5 shows the first flow chart 
minus the detailed withholding routine. The following is the key for interpreting 
the various letters used. 



G = 


Gross pay 


A$(I) 


= Ith person's name 


S = 


Social Security 


B$ (I) 


= Ith person's payroll number 


W = 


Withholding tax 


N(I) 


= Number of claimed exemptions 


Wl = 


The amount of gross pay 


M(I) 


= Marital status 




which withholding tax 


V 


= Hours of overtime 




is computed 


H(I) 


= Hours worked, Ith person 


P - 


Net pay 




(input a 0 if salaried) 



The decision box containing S(I)> 5 checks to see whether the person is salaried 
or not since the letter S can represent either salary or hourly rate in this program. 

To save time the flow chart of the withholding routine was prepared in 
advance. Two overhead projectors were procured and the flow chart was displayed 
alongside a current Weekly Table for the Percentage Method of Withholding, Figure 
6. The flow chart was compared, step-by-step, with the table. Once the student 
understood the patterns involved, they wrote the BASIC program very easily and 
inserted it into the main payroll routine. 

3. Work Period 

An additional 2 weeks were necessary for all students to debug their programs 
and insert the appropriate column heading and spacings. Figure 7. 
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Figure 4 



LIST 



09:19 



01/13/68 



9000 DATA V. CLOUTIER, "999-23", 1,1,1.50 

9010 DATA K. EATON, "999-11", 2,2,110.00 

9020 DATA K. GARTHWAITE, "999-31", 1,0,1.00 

9030 DATA D. MART, "999-15", 1,0,1.75 

9040 DATA R. HORNING, "999-26", 1,1,75.00 

9050 DATA A. MILLER, "999-24", 1,1,1.50 

9060 DATA J. MILLER, "999-29", 1,1,1.40 

9070 DATA S. OWEN, "999-28", 1,1,1.60 

9080 DATA C. TWOMBLY, "999-19", 1,1,1.50 

9090 DATA T. WEST, "999-13", 2,0,110.00 



^6- 



ERIC 




Withholding 

Routine 




Figure 6 



^Wl = G-N(I) * 13.50 ^ 



26 



W= 0 



W=(Wl-4)*. 14 



W=1.2&KW1-13)* 15 



1 








W=2.76+(W1-2^.17 









V\^]3.30-KWl-85)*2 



V\^.10+^-16B>*.25 




W = 0 



W=(Wl-4)*. 14 



W=2.66+(Wl-23)*. 15 



W=11.96+(Wl-85)*. 17 



W=26. 24+{Wl-169)* 



no ^ ^ 

W=60. 44+(Wl-340)*. 2 



W=81. 19 + (Wl-423)*. 3 



W=40.85+(W1-212)*.30 



C 



S = G * . 044 



3 



ERIC 



SO 



Figure 7 
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PAYR3LL1 

90 DEF FNFCX) = I MT(X* 1 OCH- . 5 )/ 1 00 

100 MAT INPUT H( 10) 

101 PRINT 

102 PRINT 

103 PRINT TABC 13); "PAYROLL"; 

104 PRINT TAB(36);"GR0SS-;TAB(46);"WITH";TAB(63);" NET" 

105 PRINT " NAME-;TAB( 13);"NUMBER";TAB(21);" SALARY"; 

106 PRINT TAB(36);" PAY";TAB(46); " TAX" ; TABC 56) ; "FICA"; 

107 PRINT TAB(63);" PAY" 
110 PRINT 

120 PRINT 

200 F0R I = 1 T3 10 

300 READ ASCI), B$(I), MCI), NCI), SCI) 
400 IF SCI) <5 THEN 700 
500 LET G = SCI) 
600 G0 T0 1200 
700 IF HCI)>48 THEN 1000 
800 LET G = HCI)*SCI) 
900 GC1T0 1200 
1000 LET V = HCI) - 48 
1100 LET G = 48*SCI) +V*SCI)*1.5 
1200 LET Wl = G-13.50*N 
1300 IF MCI) >1 THEN 1600 
1310 IF Wl>4 THEN 1340 
1320 LET W = 0 
1330 G0T0 1800 
1340 IF Wl>13 THEN 1370 
1350 LET W = CW1-4)*.14 
1360 G0T0 1800 
1370 IF Wl>23 THEN 1400 
1380 LET W = 1 .26+CWl-13)*.15 
1390 G0T0 1800 
1400 IF Wl>85 THEN 1430 
1410 LET W = 2.76+CWl-23)*.17 
1420 G0T0 1800 
1430 IF Wl>169 THEN 1460 
1440 LET W = 13.30+CW1-85)*.20 
1450 G0T0 1800 
1460 IF Wl>212 THEN 1490 
1470 LET W = 30. 10+CW1-169)*.25 
~1480' 30T0 1800 
1490 LET W = 40,84+CWl-212)*.30 
1500 G0T0 1800 
1600 IF Wl>4 THEN 1630 
1610 LET W = 0 
1620 G0T0 1800 
1630 IF Wl>23 THEN 1660 
1640 LET W = CW1-4)*.14 
1650 G0TC:. 1800 
1660 IF Wl > 85 THEN 1690 



ERIC 
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PAYRJ^LLl (CJINTINUED) 

1670 LET W = 2.66+(Wl-23)*.15 

1680 1800 

1690 IF Wl > 16? THEN 1720 

1700 LET y = 1 1.96+(Wl-85)*. 17 

1710 3;5TD ISOO 

17?>0 IF Wl > 5 AO THEN 1750 

1750 LET W = 26.24 + (Wl-169)*.20 

174 0 Gt5T0 IGOO 

175 0 IF Wl >A25 THEN 1780 

1760 LET W = 60.44 + (Wl-340)*.25 
1770 G:3T:3 IGOO 

17S0 LET W = ?.1.19 + (Wl-423)*.30 
1800 LET 5 = G * .044 
1900 LET P = 3 - V - S 
2000 IF SCI) > 5 THEN 2400 

2100 PRI^^T A1(I);TA3C13);B$(I);TAB(21);H(I)"HR (3"13(I); 

2200 PHI N'T TA3(35);FNF(G);TAB(45);FNF(W);TAB(55);FNF(S);TA3(63);FNF(P) 
225 0 PRINT 
2300 G0T0 2600 

2400 PRINT AS(I);TAB( 13);B$(I);TA3(20); " ";S(I); 
2500 G0T0 2200 
2600 NEXT I 

9000 DATA V.CL.TJTIER, "999-23", 1,1, 1.50 
9010 DATA K.EAT13N,"?99-H",2,2,110.00 
9020 DATA K . GARTHWAI TE , "9??-3 1 " , 1 , 0, 1 . 00 
9030 DATA D.HAnT,"999- 15" , 1 , 0, 1 . 75 
9040 DATA R..!(3FjNI::r;, "999-26" , 1 , 1 ,75.00 
9050 DATA A . MILLER, "999- 25 " , 1 , 1 , 1 . 50 
9060 DATA J. MILLER, "999-29" , 1 , 1 , 1 . -10 
9070 DATA S. flWEN , " 999- 2?" , 1 , 1 , 1 . 60 
9030 DATA C. TW0M3LY, "999- 1 9" , 1 , 1 , 1 . 50 
9090 DATA T . WEST , "999- 13" , 2, 0 , 1 1 0. 00 
9999 END 



S2 



RUN 

PAYR3LL1 12 MAY 70 13:27 
? 30,0,4,50,0,23,25,39,39,0 



PAYR^^LL 
NAME NUMBER SALARY 



V.CL0UTIER 


999- 


25 


30 


HR @ 


1 


.5 


K.EATJ3N 


999- 


11 




110 






K.riARTHWAITE 


999- 


31 


4 1 


HR ^ 1 






D.HART 


999- 


15 


50 


HR 3 


1 


.75 


R.HaRNIN3 


999- 


26 




75 






A.MILLER 


999- 


25 


23 


HR C? 


1 


.5 


J.MILLER 


999- 


29 


23 


HR @ 


1 


.4 


S. MWEN 


999- 


28 


39 


HR @ 


1 


.6 


C.TW0MBLY 


999- 


19 


39 


HR © 


1 


.5 


T.WEGT 


999- 


13 




110 







TIME: 0.465 SEC. 
READY 



GR05S 


WITH 




NET 


PAY 


TAX 


FICA 


PAY 


45 


6.5 


1 .98 


36.52 


1 I n 


16.21 


4.84 


88.95 


4 


0 


O.lS 


3.82 


89.25 


14. 15 


3.93 


71.17 


75 


1 1.6 


3.3 


60.1 


34.5 


4.71 


1.52 


28.27 


32.2 


4.32 


1 .42 


26.46 


62.4 


9.46 


2.75 


50.2 


58.5 


8.79 


2.57 


47.13 


110 


16.21 


4.84 


88.95 
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V. DEPRECIATION USING THE THREE COMMON METHODS 

(1-2 weeks) 



Purpose: To utilize the programming techniques already learned such 

as looping, labeling, and rounding off. 

Note: These students had studied the three methods of depreciation 

in Bookkeeping II; therefore, this section was essentially 
review. 

1st day: Straight-line method. The class carried out a pencil calcula- 
tion of a simple example, say $1500 for 5 years. From this 
example they designed the flew chart. 

2nd day: The students spent the period on the computer perfecting their 
programs, labeling, etc. 

3rd day: Double-declining balance method. Again the class carried 
out a long-hand calculation of a simple example and then 
wrote the flow chart. 

4th day: The students used the computer to perfect their programs. 

5th day: Sum-of-the-years-digits method. A'Ler working through a 
numerical example, the first group of students attempted 
to write the program unassisted. Th^^y spent three days 
working on the computer struggling to duplicate the original 
example. They had considerable difficulty because the 
annual depreciation is figurer' by applying a changing frac- 
tion to the original cost of the asset. As a result, the 
second group was taught this method in the same fashion 
as the previous two types. 

When each student has a complete set of depreciation programs, the following 
problems could be assigned. Some problems make use of salvage value, which is 
a useful refinement of the original programs. Figure 8. If the class is a good one. 
Part I will present a challenge. This is not an easy program. One good program is 
shown in Figure 9. It took a week of effort by the best programmer. (This part was 
not even suggested for the second class.) 



ERIC 



31 




Figure 8 



US 



SThA-LI.J 12 r;AY 70 15:31 

«0 HZV THIS C::f;PUTF.S HEPRECI ATI J3N 3y THE STRAIGHT-LINE flETHrsD. 
90 DEF FNR(X) = I fJT ( X* 1 00+. 5 ) / 1 00 
100 I;^PIJT W,Y 

110 pr?i:JT 

12(1 PRINT TA3(il);"Bfi;iK" 

130 PRINT "YEAR";TA?.( 16);"!^EPR.";TA3(51);"\/ALUE" 
140 PRI,^IT 
150 PRIIJT 
160 LET 0 r W/Y 
170 F;.1R I : 1 T3 Y 
n?0 LET 3 = W-DHcI 
190 PRIMT I, FfJR(D), F;jR(3) 
200 NEXT I 




CTRA-LI;J 12 flAY 70 13:32 



? 10000,12 



DEPR. 



3?!0K 
VALUE 




P 33 .33 
855 .53 
C) o o # o 
G33.33 
?35 •55 
o5 5 • 55 

o T T XT 

833.33 
^33 .33 
"53 » 5 3 
'?53 .33 
'■•33.7.3 



9166.67 
f^333.33 

7^00 



6665.67 
5 o3 5 •53 

■=^000 



4166.67 
3 3 3 3 • 33 

2*^00 



i 1 
12 



1666.67 
f33.3 3 

0 



TIME: 0. l^-^ f EC. 
PEAT^Y 



ERIC 



LIS 



DiHI-DECL 12 MAY 70 13:34 

80 RE'A Tills C;5MPMTEn DEPRECIATIBN 3Y THE D0UBLE-DECLI NI NO ^lETHPD. 
90 DEF FNR(X) = I NTC X* 1 00+. 5 ) / 1 00 
100 INPUT W,Y 
110 PRINT 

120 PRINT TA3(3I);"Bt^{1K" 

130 PRINT "YEAR";TA3(I6);"DEPR.";TAB(5n;"VALUE" 
MO PRINT 
150 PRINT 

160 Fi)H I = I TH Y 

170 LET D = 2/Y*W 

130 LET B = W-D 

190 PRINT I, FNRCD), FNfKB) 

200 LET W = 3 

210 NEXT I 

220 END 

REA [)Y 



SU-DECL 



12 riAY 70 13:3=i 



? 10000,6 



YEAR 



DEPR. 



B?/0K 
VALUE 



2 
3 
4 
5 
6 



3333.33 
2222.22 
1481 
987.65 

43?. 96 



6566.67 
4444.44 
2962.96 
1^75.31 
1316.r.7 
^^77. 91 



TIME: 0.117 DEC. 

REAHY 



•?7 
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LIS 

SUM 12 MAY 70 13:36 

80 REM THIS Cf.PlPUTFS DEPRFCIATI'^M BY T!1E GUM-flF-THE-YEARS-ni GI TS r.ETHOD. 
90 DEF FNR(X) = I NT ( X* 1 00+ . 5 ) / 1 00 
100 ItlPUT W,Y 
110 PRINT 

120 PRINT TA3(31);"BiniK" 

130 PRINT "YEAR";TA3(16);"nEPR.";TA3(31);"VALUE" 

140 PRINT 

150 PRINT 

160 LET S = 0 

170 FfJR Z = 1 TO Y 

IBO LET 3 = S+Z , 

190 NEXT Z 

200 LET B : W 

210 FOR I = Y TO I STEP -1 
220 LET D = I/3*W 
230 LET 3 = 3-D 

240 PRINT Y-I+1, FNRCD), FNR(3) 
250 NEXT I 
260 END 
READY 



RUN 

SUM 12 MAY 70 13:37 



? 3600,5 

YEAR DEPR. VALUE 



1 1200 2400 

?, 960 1440 

3 720 720 

4 4f,0 240 

5 240 0 



TIME: 0.121 CZC, 

READY 



38 
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I, Write a program which will print out a Comparison Chart of the three 

depreciation methods we have studied. Take into account the salvage value 
(amount for which an asset is sold when its useful life is ended. An asset 
with salvage value will have depreciation expense equal to its total cost less 
its salvage value.) For each method print only the depreciation and book 
value. Too many columns are necessary otherwise. Break your INPUT state- 
ment into three parts and have the computer request (by PRINT statements) the 
total costs of the asset, the salvage value and the estimated life in years. 

Suggestions: Put the labels and headings on last. The main part of 
your program can be formed by attaching the working part of each of the three 
programs you have done in sequence. If you do this, you must use subscripts 
and you will need to change the letters in two of your programs. The print out 
will be the very last part of your program - separate loop. Or, you might observe 
that all three programs have an "I" loop from 1 to Y (the sum-of-the-years-digits- 
method can be written this way, too. In this case, the depreciation must be 
calculated using (Y-I + 1) instead of I). Thus, you should be able to calculate 
all three methods inside of one loop. Be sure to change the letters in two pro- 
grams. The print out will be inside of the I loop and you will not need subscripts. 
Choose a method and stick with it. 

IL 1. A building contractor bought a cement mixer for $4,500. Its esti- 

mated life was 6 years with a junk value of $300 at the end of that time. At 
the end of 4 years the machine was worn out and was sold for junk for $22 5. 
How much difference was there between the book value and the cash value of 
the machine on the date of the sale. 

(a) By straight-line method. 
Ans . 

(b) By sum-of-years-digits method. 
Ans . 

2 . The Pyrotechnic Manufacturing Company bought a fire engine to use 
for the protection of their plant and paid $21,000 for it. The engine was estimated 
to have a life of 20 years and a trade-in value at the end of that time for $3,000. 
After 6 years, the company went out of business and sold the engine to a local 
fire company for $10,000. 

(a) If the machine was depreciated on the declining-balance plan , 
how much did the company lose on the sale? Ans. 

(b) If the sum-of-the-years-digits plan had been used, would this 
loss have been smaller or greater, and how much? Ans. 
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3. The machinery purchased by the Kansota Corporation when it started 
operations cost $69,600. It was decided to depreciate it by the dec lining -balance 
method over an estimated life of 16 years. 

(a) What was the book value at the end of the 4th year? Ans. 

(b) What was the total depreciation at the end of the 6th year? Ans. 

4. A, B, and C have formed a partnership in a contracting business and 
have purchased grading equipment for $36,000. In discussing how to depreciate 
it, the partners disagree. A says the equipment will be worn out in 12 years with 
no salvage value. B and C think it will last only 10 years, but that it will have 
resale value of 10% of cost. However, B favors the declining -balance method, 
while C wants to use the sum-of-the-years-digits plan. The partners wish to take the 
largest possible amount as a tax deduction for depreciation during the next five 
years. Show the three plans in parallel form and compare the totals to find which 
plan yields the greatest depreciation. 



Figure 9 
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LIS 

CJ3MBIfJE 12 KAY 70 13:47 

50 DIM B(40),E(40) ,2(40) ,P(40) ,K(40) 
90 DEF FNR(X) = I NTCX* 1 00+. 5 )/ 1 00 

100 INPUT W,Y,S 

101 PRIMT 

102 PRINT 

104 PRINT TA3(45);"SUM-3F-THE-" 

105 PRINT TA3(8);"STRAI3HT-LINE" ; 

106 PRINT TAB(25);"DECLINING-3ALANCE" ; 

108 PRINT TA3( 48); "YEAR-DIGITS" 

109 PRINT 

120 PRINT "XEAR";TAB(7); "DF:pR.";TA3( 17); "3351K"; 

121 PRINT TAB(27);"DEPR.";TAB(37);"300K"; 

122 PRINT TA3<47);"nEPR.";TA3(57); "330K" 
130 PRINT 

140 LET Wl = W-S 

150 LET D = Wl/Y 

160 FPJR I = 1 TO Y 

170 LET 3(1) = W-D*I 

180 NEXT I 

190 F0R I = 1 T3 Y 
200 LET EC I) = 2/Y*W 
210 LET 0(1) = W-E(I) 
220 LET W = eCI) 
230 NEXT I 
240 LET R = 0 
350 FAR Z = 1 T0 Y 
360 LET R = H+Z 
370 NEXT Z 

390 LET K(0)= Wl + S 

400 F0R I = 1 Ta Y 

410 LET PCI) = (Y-I+1>/R*W1 

420 LET KCI) = KCI- l)-P(I) 

430 NEXT I 

440 F7.R J = 1 T3 Y 

450 PRINT J;TAB(6);FNR(D);TA3(16);FNR(3(J));TA3(26);FNR(E(J)); 
460 PRINT TAB(36);FNR(C(J));TA3(46);FNR(P(J)) ;TA3(56); FNRCKCJ)) 
470 NEXT J 
900 END 
READY 



RUN 

CJ^riiilNZ 12 riAY 70 13:50 
? 25030,20,3000 



^;'j;-'-'/.F-THE- 





STP.-",I 


0:!T-LI 


0ECLININ3- 


3ALANC?: 


YEAH- DIGITS 


YEAR 


DZPR. 








d::pr. 


BOOK 


1 


1 100 


23-^00 


2500 


o o c o 


2095.24 


22904.:^ 


2 


1 100 


22500 


2250 


202^50 


1990.4F 


209 14.5 


3 


1 100 


21700 


2025 


1 roo^i 


lFr'.?.7 1 


1902P.6 


4 


1 100 


20600 


lf^22.5 


1 64 02. 


1 7"n.n5 


17247.6 


5 


11 00 


19500 


1640.25 


14762.2 


1676.19 


1557 1.4 


6 


1 100 


1 5400 


1 47G.22 


152P.6. 


157 1 .43 


1 400C 


7 


1 100 


17300 


132?. 6 


1 1957. 4 


1466.67 


12533.5 


r» 

U 


1 100 


16200 


1 195.74 


10761 .7 


1361 .9 


11171.4 


<:> 


1 100 


15100 


1076. 17 


06^5.51 


1257. 14 


99 1 4.29 


io 


1 100 


1 4000 


965.55 


?716.96 


1 152.38 


ft761 .9 


1 1 


1 100 


12900 


'^71.7 


7B45.25 


1047.62 


771 4.2? 


12 


1 100 


1 IPOO 


7F4.53 


7060.74 


942.86 


6771 .45 


13 


1 100 


10700 


706.07 


635 4.66 


r3^. 1 


5955.53 


U 


1 100 


9600 


635. 47 


5719.2 


733.33 


5200 


15 


1 100 


??00 


571 .92 


5147.2'^ 


62?. 57 


4571 .43 


16 


1 100 


7400 


514.73 


4532.55 


523. r?l 


4 047. 62 


17 


1 100 


S300 


4 63. 26 


415^.3 


419.05 


562B. 57 


18 


11 00 


5200 


4 16.93 


3752.37 


3 14.29 


551 4.2c; 


IP 


1 100 


^100 


375.24 


5377. 13 


209.52 


5104.76 


20 


1 100 


3000 


337.71 




104.76 


5000 



nr.?.: 0.442 SEC. 
READY 
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VI. SIMPLE INVENTORY CONTROL 



(1-2 weeks) 



Purpose: To simulate the receipt and issuance of merchandise on a 

stockroom card and to keep stock record cards for a number 
of different items for a monthly period. 



To introduce the use of double subscripts. 



The program that resulted from this unit is designed to solve Jobs 45-48 
in the text, Clerical Record Keeping , by Baron and Steinfeld (S W Publications, 1965). 
The user can enter the receipt and the issuance of various items of stock on a daily 
basis. The program is designed to notify the user if a particular item goes above 
the more an employer should have on hand or below the least he must have on hand 
to meet current demand. The user also has the option of printing out a complete 
stock record card showing the daily entries for the month or of listing a summary 
of all items in stock with the current balance. 



The first group of students developed the flow chart in Figure 10 as a 
joint class effort over a period of three days. The following is the key for interpre- 
ting the various variables used in the chart. 



S$(I) 




the stock number 


U$(I) 




the unit (doz. , each, etc.) 


X(I) 




maximum amount that should be on hand 


M(I) 




minimum amount that must he on hand 


F(I) 




balance carried forward from the previous month 


D$ 




the month 


J 




the day of the month on which an entry is made 


Y 




the year 


A$ 




the stock number of the record card to be changed 


Q 




the quantity received (+) or issued (-) 


D(I,J) 




the date an entry is made for the Ith card 


R(IJ) 




the entry in the "received" column, Ith card, Jth day 


S(I,J) 




the entry in the "issued" column, Ith card, Jth day 


B(I,J) 




the balance on the Ith card, Jth day 


R 




the total quantity received in a month 


S 




the total quantity issued in a month 


L(I) 




the current balance for the Ith card. At the end of the month 






this value becomes the balance brought forward. 



Unfortunately, the ranking period closed before the girls finished writing 
the actual program. This would have taken at least four additional days. The 
program which is attached shows what time did not permit. The second group of 
students did not have time to even begin this program. 
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ST;iCK 

100 DIM SS(20),U5(20) ,3(20,52) ,D(20, 52) ,R(20, 52) ,S(20, 32) 
110 DIM L(20) ,X(20),f:(20) 
120 READ N,D$,Y 
150 F3R I = 1 Tn N 

140 READ 5$(I),U$(I) ,X(I),M(I),L(I) 
150 LET F(I) = LCI) 
160 NEXT I 

170 PRINT "CHANGES IN IN\/ENT3RY"; 
180 INPUT WS 

190 IF W$ = "N0" THEN 440 

200 INPUT J,A$,Q 

21 f) Ff)R I = 1 T0 N 

220 IF S$(I) = AS THEN 260 

250 NEXT I 

240 PRINT "THERE IS Nli CARD F;iR STBCK N^. "A$ 

250 GSTi) 170 

260 LET D(I,J) = J 

270 IF Q > 0 THF.N 500 

280 LET S(I,J) = -Q 

290 O3T0 510 

500 LET R(I,J) =Q 

510 LET 3(1, J) = L(I)+Q 

520 LET L(I ) = 3(1, J) 

550 IF 3(1, J) <=X(I) THEN 560 

540 PRINT "BALANCE IS " 3( I , J ) -X( I ) "i^VER MAXIMUM." 
550 r^'-no 410 

560 IF 3(1, J) >= fid) TitEN 590 

570 PRINT "3ALANCE I3"M( I )-3( I ,J ) "SELHW MINlt^Uf'." 
580 G0T3 410 

590 IF 3(I,J)-f!(I) > 5 THEN 410 
400 PRINT "TIME Tt! RECORDER "AS 
410 PRINT "ANY MORE CHANOES"; 
420 INPUT 0$ 

450 IF OS = "YES" THEN 200 

440 PRINT "D3 Y3U WANT A PARTICULAR CARD"; 
450 INPUT QS 

460 IF QS = "N3" THEN 740 

470 PRINT "WHICH CAT^D"; 

4f?0 INPUT AS 

490 F;iR I = 1 Tf) N 

500 IF SS(I) z A$ THEN 540 

510 NEXT I 

520 PRINT "THERE IS N3 CARD F0R ST0CK NP. "AS 
550 G;)T0 4-10 
540 PRIfJT 

55 0 PRINT "HATE" ;TA3( 11); "REC. " ; TA 3( 2 1 ) ; "I SS . " ; TA B ( 5 1 ) ; "BAL. 
562 PRINT Y 

570 PRINT 0S;TA3(50);F(I) 
580 LET R = S = 0 
590 F3R ;( r 1 Tn 51 

4f) 
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STHCK (Cr^fJTlrJUED) 

600 IF 0(1 ,K ) = 0 THEM 670 
610 IF RCI.K) = 0 TKEN 6A0 

620 PRINT TA3(4);DCI,K);TA3(10);R(I,K);TA3(30);3(I,X) 
■630 G'.5TD 650 

640 PRl;gT TA3C4);nCI,K);TA3(20);S(I,K);TA3(30);3(I,K) 
650 LET R = R+RCI.K) 
660 LET S = S+5(I ,K ) 
670 NEXT 1< 
680 PRINT 

690 PRINT "TDTALS;";TA3( 10);R;TA3C20); S 
700 PRINT 

710 PRINT "ANriTMER CARD"; 
•720 I'NP'JT FS ■ 

730 IF FS = "YES" THEN 47U 

740 PRINT "D:) Y^jU WANT A SlJr!MARY HF ALL CARDS"; 
75 0 INPUT F$ 

760 IF FS = "NO" THEN ofiO 
770 PRINT 

780 PRINT "ST^;CK #"," UNIT"," MAX."," WIN."," 3AL." 
790 PRINT 

COO F^R I = 1 ID N' 

860 PRINT SS(I),US(I) ,X(I),M(I),L(I) 
870 NEXT I 

880 DATA 7,riAY, 1958 
890 DATA 1(314, DHZEN, 150,25,0 
900 DATA VB4,D;5ZEN,3no,75,'53 
910 DATA 3A314 , DOZEN, ^!50, I'^O, 1 44 
920 DATA FR9,D'JZEN, 1R00,250,528 
930 Data SMC, OnzEN, 1200, 300,274 
940 DAT,'. T310,D'.^ZEN, 400,75, 106 
950 Data 336,DnzEN,350,60,64 
960 END 



o 
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RUN' 

ST?CK 12 MAY 70 14:09 

CHANGES l:i INVENTiirJY? YES 

? 2,V34,150 

ANY M3RE CHANGES? YES 

? 2,3A314,625 

ANY riaRE CHANGES? YES 

? 2,336,264 

ANY ri3RE CHANGES? YES 

? 5,SHS,10UC 

BALANCE IS 74 fiVER MAXIMUM. 

ANY M0RE CHANGES? YES 

?■ 5,VB4,-96 

ANY M3RE CHANGES? YES 

? 5,FR9, 1248 

ANY M;3RE CHANGES? YES 

? 5,T310,-4r. 

BALANCE IS 17 3EL.'W MINIMUM. 

ANY NHRE CHANGES? YE3 

? 9,SHS,-4P,C 

ANY M;3RE CHA .1ES? YF.C 

? 9,Y310,296 

THERE IS Nil CARD Ft^R ST'/CK NC?. Y3K1 

CHANGES IN INVENT;^hY? YF.3 

? 9,T310,296 

ANY fU'RE CHANGES? YES 

? 9,336,- If'f, 

ANY --iJRE CHANGES? YES 

? l4,3A314,-274 

ANY M'JRE CHANGES? 16,— —YES 

? 1S,V34, 16S«-«-«— 7^ 

BALANCE IS 6 3EL^^W MINI'^UM. 

ANY MHRE CHANGES? vES 

? 20, PR?, -720 

ANY M3RE CHANGES? YES 

? 23,V'J.1, 16G 

ANY M^JRE CHANGES? 24 -*-«-YES 

? 24,H314, ! 10 

ANY Mi'.f^E CilANGES? YES 

? 26,H314,-^? 

Tir'E T'j re.iroe;; :(3i^ 

ANY "'^U?. CHANGES? \'" 



o 
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00 yau WANT A PARTICULAR CARD? YES 
UHICK CARD? V34 



DATE 

1963 
MAY 



2 

5 

16 
23 



T0TALS 



REC. 

150 

168 
313 



ANOTHER CARD? YES 
WHICH CARD? SH8 



DATE 

19SS 
MAY 

5 
9 

TOTALS 



REC. 



1000 



1000 



IS5, 



9S 
7S 



174 

ISS. 

486 
486 



SAL, 

93 

243 

147 

69 

237 



BAL. 

274 

1274 

788 



AM^THER CARD? :i3 

D0 YaU WANT A SUMMARY 0F ALL CARDS? YES 



STUCK # 

HB14 
VB4 

3A314 

FR9 

SH? 

T310 

336 



UNIT 

D0ZEN 
D3ZEN 
D0ZEN 
D0ZEN 
D3ZEN 
D3ZEN 

nr^-ZEN 



MAX. 


MIN. 


BA L • 


150 


25 


27 


300 


75 


23 7 


850 


150 


495 


ISOO 


250 


1056 


1200 


300 


7p:p 


403 


75 


354 


350 


50 


1 72 



TIME: 0.S43 SEC. 
READY 
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